-- card: 4702 from stack: in
-- bmap block id: 7291
-- flags: 4000
-- background id: 3015
-- name: Print Directions 1


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=215 top=235 right=257 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  go to card "Primary Card"
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=129 top=158 right=180 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Selection Only
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  go to card "Primary Card"
  Set the lockScreen to true
  get location of bkgnd field "Title"
  click at it
  click at 4,41
  click at 480,340 with shiftKey
  if selection is empty then
    answer "There's nothing to print!"
    exit mouseUp
  else
    doMenu "Copy Text"
    put textStyle of field "Text" into temp1
    put textAlign of field "Text" into temp2
    put textFont of field "Text" into temp3
    put textSize of field "Text" into temp4
    put textHeight of field "Text" into temp5



    go to card "QuickPrint"

    show field "TextPrint"


    click at 4,41
    type tab
    if selection is not empty then doMenu "Clear Text"
    click at 4,41
    doMenu "Paste Text"


    type tab
    set textStyle of field "TextPrint" to temp1
    set textAlign of field "TextPrint" to temp2
    set textFont of field "TextPrint" to temp3
    set textSize of field "TextPrint" to temp4
    set textHeight of field "TextPrint" to temp5


    doMenu "Print Card"

    type tab
    doMenu "Cut Text"
    hide field "TextPrint"

    go to card "Primary Card"
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=129 top=183 right=205 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HyperCard Report
----- HyperTalk script -----
on mouseUp

  go to card "Primary Card"
  doMenu "Print Report..."
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=129 top=133 right=155 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ImageWriter II NLQ
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  go to card "Primary Card"
  open file "!HW Print File"
  write field "Text" to file "!HW Print File"
  close file "!HW Print File"


  open "HyperWrite Printer"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=129 top=108 right=130 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Macintosh Standard
----- HyperTalk script -----
on mouseUp

  go to card "Primary Card"
  PrintField("bkgnd field 2")
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=129 top=235 right=257 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to card "HwHelp"
end mouseUp